home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / Fab Libraries / UserStartup•Fab < prev    next >
Encoding:
Text File  |  1993-10-19  |  3.2 KB  |  104 lines  |  [TEXT/MPS ]
  1. #    {FabLibraries} - Directories containing my include files & libs.
  2.         Set FabSources '3•Documenti:Backup:sources:'
  3.         Export FabSources
  4.         Set FabDumps AppDump:
  5.         Export FabDumps
  6.         Set FabDumpsSym AppDumpSym:
  7.         Export FabDumpsSym
  8.         Set FabLibraries "{FabSources}FabLibsƒ:"
  9.         Export FabLibraries
  10.         Set Ingoing '2•Transito:Ingoing:'
  11.         Export Ingoing
  12.         Set ObjDir :Objects:
  13.         Export ObjDir
  14.         Set DCPrefs 'Disk Charmer Prefs'
  15.         Set UPSPrefs 'UPS Prefs'
  16.         Set DSPrefs 'DarkSide Preferences'
  17.         Set ArchSimPrefs 'µSimulator Prefs'
  18.  
  19. #    Add to the Build menu
  20.  
  21.         AddMenu Build '(-' ''
  22.         AddMenu Build 'Build Roots/¿' ∂
  23.             'Begin; ∂
  24.              Set NewProgram "`make -r`"; ∂
  25.              Exit If "{NewProgram}" == ""; ∂
  26.              Set Program "{NewProgram}"; ∂
  27.              Open "{Worksheet}"; ∂
  28.              Echo; Echo; ∂
  29.              BuildProgram "{Program}"; ∂
  30.              End >> "{Worksheet}" ≥≥ Dev:StdOut'
  31.         AddMenu Build 'Build Same/∫' ∂
  32.             'Begin; ∂
  33.              Exit If "{Program}" == ""; ∂
  34.              Open "{Worksheet}"; ∂
  35.              Echo; Echo; ∂
  36.              BuildProgram "{Program}"; ∂
  37.              End >> "{Worksheet}" ≥≥ Dev:StdOut'
  38.         AddMenu Build '(-' ''
  39.         AddMenu Build 'Next Error/≥' ∂
  40.                'Begin; ∂
  41.              Find /•[ ∂t]*File/ "{Worksheet}"; ∂
  42.               Find !0 "{Worksheet}"; ∂
  43.              Execute "{Worksheet}.§"; ∂
  44.              End > Dev:Null ≥ Dev:Null'
  45.         AddMenu Build 'Previous Error/≤' ∂
  46.                'Begin; ∂
  47.              Find \•[ ∂t]*File\ "{Worksheet}"; ∂
  48.               Find !0 "{Worksheet}"; ∂
  49.              Execute "{Worksheet}.§"; ∂
  50.              End > Dev:Null ≥ Dev:Null'
  51.         AddMenu Build '(-' ''
  52.         AddMenu Build 'Remove objects' ∂
  53.                'Delete "{ObjDir}"≈.o'
  54.         AddMenu Build '(-' ''
  55.         AddMenu Build 'Remove Disk Charmer Prefs' ∂
  56.                'Delete "{SystemFolder}"Preferenze:"{DCPrefs}"'
  57.         AddMenu Build 'Remove UPS Prefs' ∂
  58.                'Delete "{SystemFolder}"Preferenze:"{UPSPrefs}"'
  59.         AddMenu Build 'Remove DarkSide Prefs' ∂
  60.                'Delete "{SystemFolder}"Preferenze:"{DSPrefs}"'
  61.         AddMenu Build 'Remove µSimulator Prefs' ∂
  62.                'Delete "{SystemFolder}"Preferenze:"{ArchSimPrefs}"'
  63.  
  64. #    Create the Directory menu
  65.  
  66. #    The parameters to DirectoryMenu become the initial list of directories
  67. #    in the Directory menu.  The parameters below specify each of the 
  68. #    Examples directories, and the current directory.  Replace them with
  69. #    your favorite directories.
  70.  
  71.         Execute 'Unix Aliases'
  72.  
  73.     Set    UPSFolder    "{FabSources}TecnoWare:mySources:"
  74.  
  75.     DirectoryMenu `(Files -d -i "{FabSources}"≈ƒ "{UPSFolder}"≈ƒ || Set Status 0) ≥ Dev:Null` ∂
  76.         `Directory`    
  77.  
  78.  
  79.         AddMenu Look '{ShellDirectory}' ∂
  80.             'Lookup "{ShellDirectory}" > Dev:Null ≥ Dev:Null'
  81.         AddMenu Look '{MPW}Scripts:' ∂
  82.             'Lookup "{MPW}"Scripts: > Dev:Null ≥ Dev:Null'
  83.         AddMenu Look '{AIncludes}' ∂
  84.             'Lookup "{AIncludes}" > Dev:Null ≥ Dev:Null'
  85.         AddMenu Look '{CIncludes}' ∂
  86.             'Lookup "{CIncludes}" > Dev:Null ≥ Dev:Null'
  87.         AddMenu Look '{PInterfaces}' ∂
  88.             'Lookup "{PInterfaces}" > Dev:Null ≥ Dev:Null'
  89.         AddMenu Look '{RIncludes}' ∂
  90.             'Lookup "{RIncludes}" > Dev:Null ≥ Dev:Null'
  91.         AddMenu Look '(-' ''
  92.         AddMenu Look 'Extract from tar file…' 'InternetConvert'
  93.  
  94.         AddMenu Find '(-' ''
  95.         AddMenu Find 'Selection in CIncludes/©'    'SearchInCIncludes'
  96.         AddMenu Find 'Typedef selection in CIncludes/ß'    'SearchInCInclTypedef'
  97.  
  98.     Set ZoomWindowRect  0,0,620,760
  99.  
  100. RezDet -q "{SystemFolder}System"
  101. If {Status}
  102.     Alert 'The System file needs repair. Check it immediately with ResEdit.'
  103. End
  104.